home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / gtiact.act < prev    next >
Text File  |  1995-04-22  |  859b  |  68 lines
  1. PROC pauz(CARD n) 
  2. CARD i 
  3.  
  4. FOR i=0 TO N+N 
  5. DO OD 
  6. RETURN 
  7.         
  8. PROC TITLE()  
  9. GRAPHICS(0) 
  10. POKE(710,0) 
  11. POKE(752,1) 
  12. PRINT(" ") 
  13. POSITION(12,9) 
  14. PRINT("ACTION! DEMO") 
  15. POSITION(09,11) 
  16. PRINT("BY MICHAEL MITCHELL") 
  17. PAUZ(20900)  
  18.  
  19. RETURN 
  20.  
  21.                
  22. PROC DEMO2() 
  23.  
  24.  
  25. CARD A,B,C,D,X,Y,J,K,I,COL 
  26.  
  27.  
  28.  
  29.  GRAPHICS (11) 
  30. POKE(710,0) 
  31. COLOR=1 
  32.  
  33. A=1 B=1 C=1 D=1 
  34. X=RAND(319)+1 
  35. Y=RAND(191)+1 
  36. J=RAND(319)+1 
  37. K=RAND(191)+1 
  38. FOR I=1 TO 800 DO 
  39.  
  40.    
  41.  
  42. PLOT(X,Y) 
  43. DRAWTO(J,K) 
  44. X==+A 
  45. Y==+B 
  46. J==+C 
  47. K==+D COLOR=COL        COL=COL+1 IF COL>14 THEN COL=1 
  48.  FI 
  49. IF X>=70  THEN A=-A X==+A  FI 
  50. IF J>=70  THEN C=-C J==+C FI 
  51. IF J<=0 THEN C=-C J==+C FI 
  52. IF X<=0 THEN A=-A X==+A FI 
  53. IF Y>=191 THEN B=-B Y==+B  FI 
  54. IF K>=191 THEN D=-D K==+D  FI 
  55. IF K<=0 THEN D=-D K==+D  FI 
  56. IF Y<=0 THEN B=-B Y==+B FI 
  57. OD 
  58.  
  59.  
  60.  
  61. RETURN 
  62. PROC HI() 
  63.  
  64. TITLE() 
  65. DEMO2() 
  66. RETURN 
  67.  
  68.